.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>. ^ >>>>>>>>>>>>>>> 
> 

> Module: Programs 
> 

> This module contains those routines that ore: "high-level 

> programs . 
> 

> PROCEDURE Scan 

> PROCEDURE Strt_FreeProcess 
> 

.LSTOFF 
.FIN 
-Page 

.DO External 
.LSTON 
.Page 
.v> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Procedure: Scan 
J. 

> This procedure reads each logical block on the disk and 

> spares them if they ar-s bad. 

> Inputs: { none > 
> 

> Outputs: { none ) 
> 

> fl I gor i thm : 
> 

BEGIN 
FOR i := TO NaxLog i ca I B I ocks DO 

> Seek_Type := RccessJOffset 

> Do ta— Type := User 

> DiskStat.MrJDp := False 

> IF NOT< SrchJCach< i > > OR < Srch_Cach.SeekNeeded ) 

> THEN 

> Seek< CnurtLogical > 

> LoadJCache 

> ELSE 

> IF < SrchJCach.HdChg > 

> THEN 

> SelectHead< Cofnp!efflent< Head > > 

> LoadJCache 

> ELSE 

> Sector := SrchJCach.Sector 

> IF NOT< ReadJCommon ) 

> THEN DataJEx_Handler< Read JCommon . ErrorCode > 

> END 
> 
:>>>>>>>>>.>.>:>>>>.>>.>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

.00 Internal 
.LSTON 
.Page 
FIN 

DJScan: 

Ld !r2,«.HIBVTE. CIrHormStat 



Ld ?r3,*.L0WBVTE. CfrMormStat 

Call BcinkJCciH 

Ld Mrk_lo+$fl,«DJScan_Response 

Cal 1 Rck-Read 



Scan: 



Tin S I f Tsl_Resu 1 1 , »No JSprTb I 
Jr Z.Sccin_i 



Cal 



Abort 



Scan_1 : 


Ld 


!rO,«0 




Ld 


!r1,«7 




Ld 


!r2,«WrkJSus+$09 ;init PBIock and Track-Head-Sector 


Scari_lnit: 


Ld 


&!r2JrO 




Inc 


!r2 




Djnz 


!r1,Scan_lnlt 


Scan_Lp : 


Ld 


Seek-Typej, *Rccess 




Call 


HewJSeek 


Scan_Bead : 


Ld 


Sector, IrF 




Ld 


NrkJSy£2+$09, !r9 jsave some regs 




Ld 


l4rkJSys2+$Oft, Irfl ;saMS some regs 




Ld 


MrkJSys2+$0BJrB :saye some regs 




Ld 


lr2,«.HIBVTE. ReadJCommon 




Ld 


!r3,«.L0WBVTE. ReadJC:ommon 




Call 


BankJCall 




Ld 


IrQ.Urk Sij*;2+$09 ;saue some regs 




Ld 


!rfi,Nrk_JBys2+$0fl ;save some regs 




Ld 


!rB,WrkJSys2+$0B ;save some regs 




Jr 


NZ/ScanJIore 




find 


!rO,*$FF-RdError ; check for non- fatal error 




Jr 


2,Scc!n_J1ore 




Pu^h 


IrO jsaue error code 




Call 


Ext_Push 




Ld 


!r1,«0 ; convert to logical inter! save 




Ld 


!r2,*.HIBVTE- Map.Table 




Ld 


lr3,«.L0WBVTE. Map-Table 




Ld 


lr4,*NbrSctrs 


Scan_riap_Lp : 


Lde 


!r0,e!!r2 




Cp 


IrO, IrF 




Jr 


Zf Scan_l1ap_End 




Incuj 


I!r2 




Inc 


Irl 




DJnz 


! r4 , ScanJ1ap_Lp 




Call 


Abort 


Scan-Hap_£nd : 


Add 


IrB, Irl ;add in the sector offset 




fide 


!rfl,«0 




fide 


lr9;«0 




Ld 


!rO, Ir9 ;check for logical block zero 




Or 


IrOJrfi 




Or 


!rO,!rB 




Jr 


2, Scan \ -Err 



; Convert the Physical block number to a Logical number 





.DO 


w_ioriB 




Or 


IrBJrB ; check for spareblock 




Jr 


2.Scan_h_Pop 




Sub 


\rB, !rfl 




Sbc 


lrfi,«0 




Sbc 


!r9,«0 




.Fm 






.DO 


W_20riB 




Ld 


IrOJrR ; check for spare block 




find 


!rO,*$01 




Or 


?rOJrB 




Jr 


Z.Scan_M_F'op 




Ld 


!r1,!r9 




Ld 


!r2Jrfl 




Rcf 






Rrc 


Irl 




Rrc 


!r2 




Sub 


IrB, !r2 




Sbc 


!rfl, !r1 




Sbc 


Ir9,«0 




.FIN 






.DO 


W_40riB 




Ld 


IrO.lrfl ; check for spare block 




And 


!rO,«$01 




Or 


!rO, !rB 




Jr 


Z^Scar-»_n_Fop 




Ld 


IrlJrQ 




Ld 


!r2Jrfl 




Ld 


!r0,«2 


P_To_L: 


Rcf 






Rrc 


!r1 




Rrc 


!r2 




Djnz 


!rO,P_ToJL 




Sub 


!rBJr2 




Sbc 


Irfl.lrl 




Sbc 


!r9>0 




.FIN 




Scan J Err- : 


Ld 


?r2,«.HIBVIh. LoqicalBlock 




Ld 


!r3,«.L0WBVTE. Logical Block 




Ld 


Ir1,«4 




Ld 


!rO,«MrkJSys+$09 


Scan_LB_Lp: 


Ldei 


gl!r2,eir0 




Djnz 


!r1,Scan_LB 1 p 




Ld 


Data-Type, «User_Type 




Call 


LoadJCache 




Call 


Load-Log i ca i 




Ld 


Ir2.«-HIBVTE. SCJJector 




Ld 


!r3,«.L0WBVTE. SC_Uector 




Call 


BankJCali 




Pop 


IrO ; retrieve error code 




Tro 


B 1 kS ta t , «B_B ! ock+S_B 1 ock ; ched 




Jr 


Nz,ScanlM_Pop 


Scan_Rd_Err: 


Ld 


I r2, « . H 1 BYTE . Data_£x_Hand ! er 




Ld 


1 r3 ;« . LOUBVTE . Da to JEx_Hand I er 




CaM 


Bank-Call 





cai 1 


zero_Header 


Sccin_ri_Pop: 


Cdi! 


Ext_Pop 


Scan Jlore : 


inc 


IrF ;read next sector 




Cp 


!rF^«NbrSctrs ; check for over flow 




Jp 


Lt,Scan_Read 




Add 


lrB^*NfarSctrs ;go to next set of blocks 




Rdc 


!rfl,«0 




fide 


!r9,«0 




Ld 


lrF,*0 ;otheruiise start at sector 




Inc 


IrE ;and go to next head 




Cp 


!rE,»NbrHds 




Jr 


6e, Scan_l ncTrks 




Call 


SelectHead 




Jp 


Scan-Read 


Scari-lncTrks: 


Ld 


lrE,*0 : otherwise seek to next track 




Add 


!rD,«1 




fldc 


!rC,«0 




Ld 


IrOj, IrC ; check for last track 




Ld 


injrD 




Xor 


lr1,«.LOI4BVTE. < NbrTracks-1 ) 




Xor 


lrO,«.HIBVTE. < NbrTracks-t > 




Or 


!rO, !r1 




Jp 


Nz,Scan_Lp 




Call 


Park-Heads 




Ld 


!r2,«.HIBVTE. CIrNormStat 




Ld 


!r3,«.L0UBVTE. CIrNormStat 




Calf 


BankJCal 1 




Jp 


Bank-Ret 




.LSTOFF 






DO 


External 



.LSTON 
. Page 

;> Procedure: Strt-FreeProcess 
- > 

■ > BANK 1 PROCEDURE 



;> 

;> 

;^ 
; > 

;> 

• > 

;> 
;> 
;> 

; > 

• > 

";> 

: > 



This procedure is used by the controller to start any process 
< along the lines of internal bookkeeping > that it chooses. 

Inputs: { none > 

Outputs: { none } 

fl J gor i thro : 

BEGIN 
IF < SeekCount >= 2048 > 
THEN RrmSweep 
FreeJSifTst := 
WHILE HOT< cm > DO 

Bsy_Wait for 3 seconds 



IF MOT< Parked > THEM Park_Heads 
CASE FreejSlfTst OF 

: Test Eprom 

1 : Test Sector Count 

2 : Test Motor Speed 

3 : Test Read/Write; FreejSlfTst := 



> Take care of Host 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

-LSTOFF 

.FIH 

.00 Internal 

.LSTON 

.Page 

.FIM 



Str t_FreeProces5 : 
Di 
Srp 
CIr 
Ld 

find 

Tm 
6i- 



•WrkJSys ;get into a reasonable state 

Sph 

Spl,*Stack_Top 

Port2,«.$FF-Bsy ;clear BSV 

SeekCount,*$FC :do arm sweep every Ik seeks or so 
Z.Chk_Park 



CIr 
CIr 



SeekCount 
SeekCount+1 



Ld I rC , » I n i t_H i Cy I ; seek to da ta r eca I I oac t J on 

Ld !rD,*lnitJLoCyl 

Ld !rE^*0 ;head zero 

Ld !rFj,*0 ; sector zero 

Cal ! MeujJSeek 



Ld 
Ld 
Ld 
Ld 
Call 



!rC,«0 

!rD,«$6Q 

lrE,#0 

frF,»0 

NeiB_Seek 



find DiskStat,»$FF-On_Track 

Call Set-SeekHeeded 

Chk_Park: CIr FreejSlfTst ;get ready to do some self tests! 

Chk_Pk_Jp: Ld lr2,#.HIBVTE. 200 ;wait for two seconds 

Ld !r3,«.L0MBVTE. 200 

Call Chk_Park1 



ChkJ=^ark3: Tin OlskStat/«Parked 
Jr Nz, FreePJIoPark 



FreePJioPark : 



Cal I Park-Heads 

Jr Chk_Pk^p 

Tin Fr ee_S I f Ts t , *$0 1 ; check for even y a I ue 

Jr Z^FreePjSlfTst ; to do tests only every other time 

Inc Free_SlfTst jotherujise make even for next time 

Jr Chk_Pk_Jp 



FreeP-SlfTst: 



Ld 



!r2,«.HIBVTE. SlfTst_Tabfe 



Ld 


!r3,».L0WBVTE. 


3ffTst_Table 


Add 


!r3,Free.^ltTst 


fide 


!r2,«0 




Inc 


Free^lfTst ;make value odd 


Ldc 


!rE,e!lr2 




Incw 


!lr2 




Ldc 


!rF,@!!r2 




Jp 


9\r-E 




SlfTst_Tab!e: .DM 


Free_Ram 




.DW 


Chk_Pk_Jp 




.DW 


FreeJEprom 




.DU 


Chk_PkJp 


;nop 


.DW 


FreeJMtrSpd 




DW 


Chk_Pk^p 


f 


.DW 


FreeJSctrCnt 




.DW 


Chk_Pk_Jp 


i 


.DW 


Chk_Pk^p 


> 


.DW 


Free_Rw 




Free_Ram : Ld 


!r2.«.HIBVTE. 


ChkSprChk 


Ld 


!r3,«.L0WBVTE. 


. Chk^prChk 


Call 


Bank_Call 




Jr 


NzXhk._Pk Jp 





Or S I f Ts t_Resu 1 1 . «Rcim_Fa i I 

Jr- Nz,Chk_Pk^p 



Free-Eprom : 


Ld 


lrO,«Eprom2 




Call 


EpromTest 




Jr 


Z,Chk_Pk^p 




Or 


S 1 f Ts t_Resu 1 1 , #Eprom_Fa i 1 




Jr 


Chk_Pk_Jp 


Free_SctrCnt: 


Ld 


!r2,«.HIBVIb. SctrCount 




Ld 


I r3 , « . LOWBVTE . Sc trCoun t 




Call 


Bcink_Ca 1 1 




Jr 


Z,Chk_Pk^p 




Or 


S 1 f Tst_Resu } t, *Sector JCnt 




Jr 


Chk_PkJp 


Free_f1trSpd : 


Ld 


!r2,».HIBVTE. MtrSpd 




Ld 


I r3,«. LOWBVTE. MtrSpd 




Calf 


Bank-JCal 1 




Jr 


Z,Chk_Pk_Jp 




Or 


S 1 f Tst_Resu 1 1 . «D i sk_Speed 




Jp 


Chk_Pk^p 


Free_Ruj : 


Or 


S 1 f Ts t_Resu 1 1 , «Rw_Fa i 1 ; assume fa 1 1 ure 




Ld 


ir2,«.HIBVTE. RujTestI 




Ld 


Ir3,«. LOWBVTE. RwTestI 




Call 


Bank_Call 




Jp 


Z,Chk-Pk_Jp 




find 


SI fTst_Resul t,«$FF-Ra>_Fai 1 




CIr 


FreeJBIfTst 




Jp 


Strt-FreeProcsss ; check for arm soieep 



LSTOFF 



.DO External 
.LSTON 
.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Module; ReadHeader Routines 

> This module contains all but the very roost primitive of 

> of procedures < the routines that are resident are listed 

> In the external spec's > that concern themselves with performing 

> a read operation. 
> 

> FUNCTION ReadHdr< Parent : BVTE { !r8 } ) : 

> BOOLEAN 

> Status : BVTE { !rO > 
> 

*.%*.■*•- ^ *. % S *- X *- *- \ *- *- N X >. % % X X X N X *. X X X X S X X 

-■ y y J- y y y y y y y y y y y / y y y y y y y y y yyyyyyyy 

.LSTOFF 

.FIN 

.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Function: ReadHdr 

> This function assumes that the heads q^g. pos i t i oned over the 

> correct track and reads the block of data following the 

> next sector mark. This routine is used for tuio reasons: t) to 
:* verify the header that is laid out on a block and 2) to try 

> to recover the data with in a block if the header is munched. 
> 

> Inputs: 

> Parent : BVTE { IrS } 
'> 

> Outputs: 

> ReadHdr : BOOLEfiN { Zero flag, true if error \n ReadBlock > 

> Status : BVTE { IrO > 

> Global Uariables Used: 

> Cylinder, Head, Sector 
:> 

> Local Uariables Used: 

> RdHError : BOOLEfiN < !r9/blt 7 > 

> RdExcept : BOOLEAN { !r9/bit 6 > 
> 

> Algorithm: 
'> 

> BEGIN 

> SetOeadNanTiffier< ReadBlock, Parent > 

> RdHError := False 

> RdHExcept := False 

> RHSctrGap := 

> RHHdrGap := 

> /" 

> R 1 Set-up external ram address counter for READHEADER 

> E I MselO:1 := Disk <— > Mem 

> S 1 WHILE Sec torMark DO BEGIN END 

> I 1 StartL := True 

> D j WHILE NOT( SectorDnL ) DO BEGIN END 

> E j Status := Status_Port 

> N 1 StartL := False 



T j t1selO:1 := Z8 <— > Mem 



IF < Status. State <> Norma lEndState > 
THEN 

Rese t JS ta teNach i ne 

Abort 

IF Status. ServoErr OR NOT< Status.ServoRdy > 
THEN 

RdHError := True 

RdHExcept := True 

IF Status. CrcErrL THEN RdHError := True 



> C I earDeadflanT i tner 

> Status/bJt 7 := RdHError 

> Status /bit 6 := RdHExcept 

> END 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.Paqe 

.FIN 



ReadHdr: 



RdHBIk_Rpt: 



RdHdr-Homi: 



RdHJServoErr 

RdHJSryoOk: 
RdHjChkEcc: 



find 

CIr 

Call 

Ld 
Rnd 
Cp 
Jr 

Call 
find 
Ld 
Ld 
Cal I 

Ld 
Tib 
Jr 
Tm 
Jr 

Or 
Jr 

Tm 
Jr 
Tm 
Jr 
O 
Or 
Jr 



Disks tat, »$FF-UrJOp 

IrQ ;cl ear boo leans 

RdHdr_Resldent ;go internal to the Z8 

? r 1 . ! rO ; CASE Status . State 

!r1,«$0F 

I r 1 . *Norm_S*tate 

2,RdHdr_Norffi 

Resst_StNach 

D I skStat . «$FF-RdHdrReca I 

IrB, Irfi 

!rfi, !rO 

fibort 



!r1, irO 

\r-\^ *SerMoErr 

Nz^RdH-ServoErr 

!r1,*SeruoRdi4 

Nz,RdHJSryoOk 



!r9, "RdHError + RdHSrMoErr 
RdH-End 



IF ServorErr OR NOT< Serv'oRdy > 



THEN RdHError AND RdHSer^oEr-rEnd 



!rO,«CrcErrL 

2,RdH_CrcErr 

!rO,«WrtNMldL 

Nz,RdH_End 

! r9, «RdHError+RdCrcErr 

RdErrCnt,«EccStat 

RdH_End 



; IF Status.CrcErr 
;0R Status.EccErr 



RdHjCrcErr: 



Or 



I r9, «RdHError+RdCrcErr 



ELSE 



Ld RdErrCnt,*CrcStat 

Jr RdHJChkEcc 

RdH_End: Ld !r0.!r9 ;send status back to cailer 

Ld RdStat, !r9 

Tern lrO,*RdHError jset zero flag if error 

Jp Bank_Ret 

.LSTOFF 



